home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Video
/
World of Video.iso
/
gfxprograms
/
3dprograms
/
rayshade-4.0
/
rayfiles
/
rsdefs
/
examples
/
ring.ray
< prev
next >
Wrap
Text File
|
1995-02-13
|
4KB
|
136 lines
/************************************************************************
*
* ring.ray
*
* This is an example file for the rsdefs package.
*
* Please do not edit this file, or any of the other files in
* this package! Make additions to these in your own separate
* file. If you think you have something that should be added
* permanently, please send it to Larry Coffin and/or David
* DeBry (email addresses listed below). If we include it in
* the next release, we'll put your name in the contributor's
* list.
*
* Contributors (in alphabetical order):
* Larry Coffin <lcoffin@clciris.chem.umr.edu>
* David DeBry <ddebry@dsd.es.com>
*
****************************************************************************
** Ring.ray
**
** By Larry Coffin
** Copyright (C) 1992
**
** This is a scene file of a ring with a large diamond in the center
** surrounded by rubys and sapphires all on a gold band. This scene
** file uses the surfaces and definitions in the rsdefs package.
** The jemstone object is in the file jewel8pt.ray.
**
** Note: with the settings below, this scene took 5 hours to render
** on an IBM530/RS6000.
**
*/
#define MAIN
/***************************************************************************
* Include the rsdefs files
*/
#include "defs.rh"
/***************************************************************************
* Number of frames to be used for animation. (see the ring instance
* below
*/
#define NUMFRAMES 1
/***************************************************************************
* Jemstone and band surfaces.
*/
#define MAIN_SURF RSSdiamond_blue
#define SAT_SURF1 RSSruby
#define SAT_SURF2 RSSsapphire
#define BASE_SURF RSSgold
RSFtv_final()
RSF4x3screen(.25)
eyep 1 -35 5
/***************************************************************************
* Maxdepth is set high because there are noticeable artifacts in the
* diamond at much(?) lower values.
*/
maxdepth 10
sample 5
aperture .03
background 0.539 0.746 1.000
light 1 1 1 point (50*12) (-50*12) (50*12)
frames NUMFRAMES
shutter 0
name band
torus 2 .1 0 0 0 0 0 1
scale 1 1 3
/***************************************************************************
* One pair of satellite jems.
*/
name sat_jems list
RSPmounted_jewel8pt(,SAT_SURF1(),BASE_SURF())
RSMscale(.45)
rotate 0 1 0 22.5
translate 0 -2.1 .85
rotate 0 1 0 22.5
RSPmounted_jewel8pt(,SAT_SURF2(),BASE_SURF())
RSMscale(.45)
rotate 0 1 0 22.5
translate 0 -2.1 .85
rotate 0 1 0 67.5
end
/***************************************************************************
* The whole ring!
*/
name ring list
object BASE_SURF() band
list
RSPmounted_jewel8pt(,MAIN_SURF(),BASE_SURF())
RSMscale(.9)
translate 0 -2.1 0
object sat_jems
object sat_jems
rotate 0 1 0 90
object sat_jems
rotate 0 1 0 180
object sat_jems
rotate 0 1 0 270
end
rotate 0 1 0 -22.4
translate 0 -.1 0
RSProundeddisc(name mounting_base,.95, 0,-2.15,0, 0,-1,0, .05)
object BASE_SURF() mounting_base
end
/***************************************************************************
* The ring in a fasionable pose! (Replace the "10" with the
* commented-out stuff to get the ring to rotate one full revolution
* in NUMFRAMES frames. This starts with the jems facing away from
* the viewer.)
*/
object ring
rotate 1 0 0 -20
rotate 0 0 1 10 /*(180 - frame *(360/NUMFRAMES))*/
/***************************************************************************
* A nice background/floor.
*/
name floor plane 0 0 -3.001 0 0 1
RSTnamed_marb_check1(floor,6)